close all
clear all
clc

format longE

f=inline('x.^3 + 4*x.*cos(x) - 2', 'x')
df=inline('3*x.^2 + 4*cos(x) - 4*x.*sin(x)', 'x');

%Xrad=sepzeri(f, 0.2,1.2)

options = [];
options.maxiter=100;
options.verbose=false;
options.xtol=1e-15;
options.ftol=1e-15;

% bisezione
x_bisezione = bisezione(f, 0.2, 1.2, options)

% newton
x_newton = newton(f, df, 1.2, options)

% secanti
x_secanti = secanti(f, 1.2, 0.2, options)

% punto fisso
g=inline('(2 - x.^3)/(4*cos(x))', 'x');
x_puntofisso= puntofisso(f, g, 0.2, options)

xrif = fzero(f, 0.5)